home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power Programmierung
/
Power-Programmierung (Tewi)(1994).iso
/
magazine
/
dbms_mag
/
9108
/
account1.aug
next >
Wrap
Text File
|
1991-06-13
|
1KB
|
50 lines
Listing 1:
PROCEDURE qfrac
*
PRIVATE usr_inp
@ 23,0
IF TYPE("no_bal_msg")<> "L"
PRIVATE no_bal_msg
STORE .F. TO no_bal_msg
ENDIF
IF no_bal_msg
usr_inp = "F "
ELSE
SET COLOR TO &vid_rvrs
IF rmng_2_bal = 0
?? "Distribution is in balance"
usr_inp = "F "
ELSE
?? "Distribution is not in balance",CHR(7)
usr_inp = IIF(last_item = 0,"A ","R ")
ENDIF
SET COLOR TO &vid_nrml
ENDIF
c_frac = 0
DO WHILE c_frac = 0
@ 22,0
@ 22,0 SAY "File, Review, Append, Cancel (F/R/A/C) " ;
GET usr_inp PICTURE "!!"
READ
key_press = keypress()
DO CASE
CASE usr_inp = "/" .OR. key_press = 12 && Esc
c_frac = -1
CASE usr_inp = "F" .OR. usr_inp = "1"
c_frac = 1
CASE usr_inp = "R" .OR. usr_inp = "2"
c_frac = 2
CASE usr_inp = "A" .OR. usr_inp = "3"
c_frac = 3
CASE usr_inp = "C" .OR. usr_inp = "4"
c_frac = 4
ENDCASE
usr_inp = " "
ENDDO
@ 22,0 CLEAR
*
RETURN